Power Programmierung/Power-Programmierung (Tewi)(1994).iso/magazine/pctchnqs/1990/number3/trace.pas

Pascal/Delphi Source File | 1990-05-14 | 247b | 12 lines

{ Listing 6 - Trace example }

PROCEDURE Tile.Import(VAR PatFile : TEXT);
BEGIN
  READ(PatFile,Color,X,Y);
  IF TRACE THEN
    BEGIN
      Write(LST,'Read tile.');
      Write(LST,'  X,Y,Color=',X,', ',Y,', ',Color);
    END;{IF}
END;